თავი 2. მონაცემების ამორჩევა
წინადადება WHERE-ში ოპერატორის NOT გამოყენება
ცხრილიდან tbsaq_mireba ამორჩეულ იქნეს ყველა საქონელი "მიქსერი"-ს (საქონლის კოდია ჩვენ შემთხვევაში 3) გარდა რომელებიც ინახებიან მე-2 საწყობში
SELECT tbsaq_mireba.saw_nomeri AS[sawyobis nomeri], tbsaq_mireba.saq_nomeri AS[saqonlis kodi], tbsaq_mireba.tariri AS[miRebis TariRi], tbsaq_mireba.raodenoba AS[miRebuli raodenoba], tbsaq_mireba.sez_fasi AS[SeZenis fasi] FROM tbsaq_mireba WHERE tbsaq_mireba.saw_nomeri=2 AND (NOT tbsaq_mireba.saq_nomeri =3)
ფორმიდან შეკითხვის შემთხვევაში შეკითხვა ზოგადად შეიძლება შემდეგნაირად ჩამოვაყალიბოთ: ამორჩეული იქნეს m-ური დასახელების ის საქონელი, რომელიც არ ინახება n-ური დასახელების საწყობში.
ფორმის მოდულში ჩაწერილი პროგრამა შემდეგია:
Private Sub Rsek_Click()
Dim kit As String
Select Case Me.Famor.Value
Case 2
Me.Lsia.RowSource = ""
kit = " SELECT tbsaq_mireba.saw_nomeri AS[sawyobis nomeri], tbsaq_mireba.saq_nomeri AS[saqonlis kodi], tbsaq_mireba.tariri AS[miRebis TariRi], tbsaq_mireba.raodenoba AS[miRebuli raodenoba], tbsaq_mireba.sez_fasi AS[SeZenis fasi] FROM tbsaq_mireba" & _
" WHERE tbsaq_mireba.saw_nomeri = " & V1 & "" & " AND NOT(tbsaq_mireba.saq_nomeri = " & V2 & ")"
’
With Me.Lsia
.ColumnHeads = True
.ColumnCount = 5
.ColumnWidths = "1,5in;1,5in;1,4in;1,8in;1,2in"
.RowSourceType = "Table/Query"
.RowSource = kit
End With
End Select
End Sub
პროგრამით ამორჩევის შედეგი/სურ. 9/